print("Stromstrkeberechnung Version 1.0")
U <- as.numeric(readline("Bitte geben Sie die Spannung in Volt ein: "))
R <- as.numeric(readline("Bitte geben Sie den Widerstand in Ohm ein: "))
I <- U / R
print(paste("Die Stromstrke lautet:",I))
